home *** CD-ROM | disk | FTP | other *** search
/ Stone Design / Stone Design.iso / Stone_Friends / Wave / WavesWorld / Examples / 1DWorld / point1.wwModel / initialDefines.eve next >
Encoding:
Text File  |  1995-04-10  |  2.1 KB  |  90 lines
  1. set xMin -2
  2. set xMax 2
  3. EveCmd {set xExtent [expr {$xMax - $xMin}]}
  4.  
  5. set yMin -.1
  6. set yMax .1
  7.  
  8. set patch(color) {1.0 0.0 0.0}
  9. set patch(type) bilinear
  10. EveCmd {set patch(x0) $xMin}
  11. EveCmd {set patch(y0) $yMin}
  12. set patch(z0)  0.0
  13.  
  14. EveCmd {set patch(x1) $xMin}
  15. EveCmd {set patch(y1) $yMax}
  16. set patch(z1)  0.0
  17.  
  18. EveCmd {set patch(x2) $xMax}
  19. EveCmd {set patch(y2) $yMin}
  20. set patch(z2)  0.0
  21.  
  22. EveCmd {set patch(x3) $xMax}
  23. EveCmd {set patch(y3) $yMax}
  24. set patch(z3)  0.0
  25.  
  26. set patch(xScale) 1
  27. set patch(yScale) 1
  28. set patch(zScale) 1
  29. set patch(xTranslate) 0
  30. set patch(yTranslate) 0
  31. set patch(zTranslate) 0
  32. set patch(xRotate) 0
  33. set patch(yRotate) 0
  34. set patch(zRotate) 0
  35.  
  36. set sphere(color) "0 [expr {102./255.}]  [expr {102./255.}]"
  37. EveCmd {set sphere(radius) $yMax}
  38. EveCmd {set sphere(zMin) [expr {-1 * $sphere(radius)}]}
  39. EveCmd {set sphere(zMax) $sphere(radius)}
  40. set sphere(thetaMax) 360.0
  41. set sphere(xScale) 1
  42. set sphere(yScale) 1
  43. set sphere(zScale) .01
  44. set sphere(xTranslate) 0
  45. set sphere(yTranslate) 0
  46. set sphere(zTranslate) 0
  47. set sphere(xRotate) 0
  48. set sphere(yRotate) 0
  49. set sphere(zRotate) 0
  50.  
  51. defineClass: drawTicks2 {pointSize fontName xMin xMax y} {
  52.  
  53.   TransformBegin
  54.     Sides 2
  55.     Translate $xMin $y 0 
  56.     Color {1 1 1}
  57.     set xExtent [expr {$xMax - $xMin}]
  58.     for {set i $xMin} {$i <= $xMax} {incr i} \
  59.     {  ArchiveRecord comment tick $i
  60.        WW3DText $fontName $pointSize "$i"
  61.        Translate 1 0 0 
  62.     }
  63.   TransformEnd
  64. }
  65.  
  66. defineClass: drawTicks {pointSize fontName xMin xMax y} {
  67.  
  68.   TransformBegin
  69.     Sides 2
  70.     Translate $xMin $y 0 
  71.     Color {1 1 1}
  72.     set xExtent [expr {$xMax - $xMin}]
  73.     for {set i $xMin} {$i < $xMax} {incr i} \
  74.     {  ArchiveRecord comment tick $i
  75.        WW3DText $fontName $pointSize "$i"
  76.        Translate .1 0 0 
  77.        # go down...
  78.        Translate 0 [expr {-.25 * $y}] 0
  79.        for {set j 1} {$j < 10} {incr j} \
  80.        {  ArchiveRecord comment tick ${i}.${j}
  81.           WW3DText $fontName [expr {$pointSize * .15}] "${i}.${j}"
  82.           Translate .1 0 0 
  83.        }
  84.        # go back up...
  85.        Translate 0 [expr {.25 * $y}] 0
  86.     }
  87.     ArchiveRecord comment tick $i
  88.     WW3DText $fontName $pointSize "$i"
  89.   TransformEnd
  90. }